use Test::Base;

plan 'no_plan';

use_ok('Text::Filter');


sub text_call {
    my $txt_filter = Text::Filter->new({components=>[qw/Escape Hatena/]});
    my $text = $txt_filter->convert($_[0]); 
    return $text;
}

sub omit_indent {
    (my $text = shift) =~ s/^[\t\s]+//gmo;
    return $text;
}

filters {
    input => ['text_call', 'omit_indent', 'chomp'],
    expected => ['omit_indent', 'chomp'],
    data_input => ['chomp'],
    data_expected => ['chomp'],
};

run_is 'input' => 'expected';
#run_is 'data_input' => 'data_expected';

__END__

=== text-hatena
--- input
hoge>"
--- expected
<div class="section">
<p>hoge&gt;&quot;</p>
</div>

=== text-data
--- data_input
foo
--- data_expected
foo

